home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / wordproc / par240.arj / EXAMPLE.BAT < prev    next >
DOS Batch File  |  1994-02-14  |  3KB  |  90 lines
  1. @ECHO OFF
  2. ECHO OFF
  3.  
  4.   REM  %1   Example number
  5.   REM  %2   [P]lain or [T]race menu
  6.  
  7.   IF (%2) == () START
  8.   IF EXIST POM.TRC DEL POM.TRC
  9.  
  10. :MAIN
  11.   GO-MENU EXAMPLE%2.MNU 01%1 GO-MENU.SAV
  12.   IF ERRORLEVEL 10 GOTO QUIT
  13.   IF ERRORLEVEL  6 GOTO TRACE
  14.   IF ERRORLEVEL  5 GOTO OUTPUT
  15.   IF ERRORLEVEL  4 GOTO RUN  
  16.   IF ERRORLEVEL  3 GOTO POMFILE
  17.   IF ERRORLEVEL  2 GOTO INPUT
  18.   IF ERRORLEVEL  1 GOTO DOCU
  19.  
  20. :TRACE
  21.   IF EXIST POM.TRC GOTO EOCKTRC
  22.   CLS
  23.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  24.   ECHO ▐                                                                             ▌
  25.   ECHO ▐  The file POM.TRC was not found.  There are two possible reasons for this:  ▌
  26.   ECHO ▐                                                                             ▌
  27.   ECHO ▐  (1)  You have not yet run the parsing job.                                 ▌
  28.   ECHO ▐                                                                             ▌
  29.   ECHO ▐  (2)  You do not have enough DOS environment space.                         ▌
  30.   ECHO ▐       For details, look up the SET command in your DOS manual.              ▌
  31.   ECHO ▐                                                                             ▌
  32.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  33.   ECHO  
  34.   PAUSE
  35.   GOTO MAIN
  36. :EOCKTRC
  37.   CALL VIEW POM.TRC
  38.   GOTO MAIN
  39.  
  40. :OUTPUT
  41.   IF EXIST EXAMPLE%1.LST GOTO EOCKLST
  42.   CLS        
  43.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  44.   ECHO ▐                                                                             ▌
  45.   ECHO ▐       You have to run the parsing job before you can view the output.       ▌
  46.   ECHO ▐                                                                             ▌
  47.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  48.   ECHO  
  49.   PAUSE
  50.   GOTO MAIN
  51. :EOCKLST
  52.   CALL VIEW EXAMPLE%1.LST
  53.   GOTO MAIN
  54.  
  55. :RUN  
  56.   IF (%1) == (3) SET POM=HDRCNTR/TEST
  57.   IF (%1) == (4) SET POM=descrip/price
  58.   POM EXAMPLE%1.POM EXAMPLE%1.TXT EXAMPLE%1.LST
  59.   SET POM=
  60.   IF ERRORLEVEL 1 PAUSE
  61.   GOTO MAIN
  62. :POMFILE
  63.   CALL VIEW EXAMPLE%1.POM
  64.   GOTO MAIN
  65.  
  66. :INPUT
  67.   IF NOT (%1) == (5) GOTO EOWARN5
  68.   CLS                                                                                 
  69.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  70.   ECHO ▐                                                                             ▌
  71.   ECHO ▐   NOTE: Although Parse-O-Matic can "SPLIT" input records of more than 255   ▌
  72.   ECHO ▐   characters, our file viewer has problems with such long lines.   In the   ▌
  73.   ECHO ▐   following display, the input lines are wrapped over more than one line.   ▌
  74.   ECHO ▐   This is a shortcoming of our little file viewer and is not a problem in   ▌
  75.   ECHO ▐   the input data.                                                           ▌
  76.   ECHO ▐                                                                             ▌
  77.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  78.   ECHO  
  79.   PAUSE
  80. :EOWARN5
  81.   CALL VIEW EXAMPLE%1.TXT
  82.   GOTO MAIN
  83.  
  84. :DOCU
  85.   CALL VIEW EXAMPLE%1.INF
  86.   GOTO MAIN
  87.  
  88. :QUIT
  89.   START @ EXAMPLES
  90.